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PC printer port programs PROMs 

Yongping Xia, EBT he, Torrance, CA 



LMO Fig 1 shows a 2817 programmer you can build. 
A PC's printer port controls the programmer.. 
The printer port has eight data-output lines 
(pins 2 to 9), four control lines (pins 1, 14, 16, and 17), 
and five input lines (pins 10, 11, 12, 13, and 15). The 
data lines send out the 2817's address and program 
data. The control lines control the programming se- 
quence. After programming is completed, the PC reads 



the programmed data back in through its input port 
for verification. 

The Turbo C program in Listing 1 sends the 2817's 
program, contained in a binary file named p2817.dat, 
to the programmer in this sequence: 8 bits of data, 
followed by the low 8 bits of the address, and finally 
by the high 3 bits of the address (which the program- 
mer latches into ICj, IC2, and IC3). The printer port's 
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Fig 1 — A PC's printer port and a simple Turbo C program control this 2817 programmer. 
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•High power factor 0.99 

•Design, manufacturing In Japan 

•Repair center in U.S.A. 

FDK also specializes in DC-DC converters, hybrid ICs, memory 
cards, ferrite cores, lithium batteries, stepper motors, optical 
isolators, etc. 
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Your Best Strategic Partner 
FDK AMERICA. INC. 

A Division of Full Electrochemical Co., Ltd. 

San Jose Olfice: 3099 North First SUeel, San Jose, CA 95134, U.S.A. 

TEL: 408-432-8331 FAX: 408-435-7478 

Osllas TEL: 214-650-7742 FAX; 214-650-7792 
Boston TEL 617-487-3198 FAX: 617-487-3199 



CIRCLE NO. 70 



Die cut components 
for pagers, cellular phones 
& computers 




Scratch Resistant Lenses 
EMI/RFI Shielding 
Water Repellent Speaker Felts 
^ Caskets 




Parts from prototype through produaion • Rolk or individual pieces 
With or without adhesive • jIT delivefy worldwide • Quality parts on time 

the hirol company 

1170 West McNab Road • Fort Lauderdale. Florida 33309 U.S.A. 
Off! (305) 974-4900 • Fax 001 (305) 975-4734 
Read Cotine Limiled (London) Dyiumv Computof Products 

0202 632274 or 632275 Pie Ud. (Singapore) 

0202 623338 Day fax (65) 2813388 

0202 600674 Night Fax (65) 2S1330S Fax 
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pin 14 clocks these 19 bits in. Then the PC polls the 
2817's RDY/BUSY line via printer-port pin 11, waiting 
for the chance to send the next data-address combina- 
tion. After programming all 2 kbytes of the PROM, 
the PC will read the 2817 using printer-port pins 16 
and 17. A copy of the program is available on the EDN 
BBS. EDN BBS /DI_SIG #1146 snn 

To Vote For This Design, Circle No. 313 



Listing 1 — 2817 programmer control 
program 



•includ* <i(dio.h> 

•defin* CaMTKH POIT 
•defiiw la pout' 
•deflni OUT KUT 



Oii}7i /• prlnitr comrsl part addrHi ■/ 
0x379 /* printar input port addraai */ 
0x378 /* prfnttr output port oddroii */ 



• inC) 

Int buffir.tp, daltI2(RS|, I, add h, xU I, raodin 1, raadin 2, 
riLE 'atraaa; 

outpartMCOIITItOl.POIIT, 0x07); 
H ((itraaa • fopanCp2g17.daf , 'rb")) •> HULL) 
( 

fprlnt'Catdarr, "Cannot opan input flla.Nn"); 
raturn 1; 

) 

<aaak(atraaa, 0, 0); 

<or timO; \<2IHa: i") 
( 

bu^far^O; 

<ra<d(ttu<far, :. t, atraaa); 
dalain-txJ'far; 

) 

feloaaCatrauB); 

for <(•«; l<Z94«; !•♦) 
C 

add liai/25«; 
add'l«<-add h'B4; 
outportbcouf POUT, daia(il); 
outportKcoifaai pair, 0>OS): 

dalav<l>; 

autportbtcnrnx. PWT, 0«07>; 
dalavd); 

outportKOUT POIT, add I); 
outportbtCOHIIOL POIT, OaOS); 
daltvd); 

autporttXCONItOL PWT, 0x07); 
dalay<1>; 

outportbCOUT poll, add h); 
outportMCOHIIOI. POar.'OiOS); 
dalav(l); 

outportMCOmiOL POUI, 0x07): 
dalav(l); 

outportMCOiiioc ran, OxM); 

dalar(l): 

outporttKCOKTXX poai, 0x07); 
do < 

dalayd); 

) idiHt (inportb<lll_P(l*T) ( OxU !• 0x00); 



<»r <l«0; (•<J0«: I**) /• chack progm 

< 

add h>i/ZSi: 
add'l-i-add h"J54; 
outportMOUT POIT. add (); 
oulporlMCaiTIOl PailT,~OxO»; 
dalay(l); 

oulpartMCOHTlOl POUT. 0x07); 
dalav(l); 

outportMOUT POar, add h); 
outporttXCOMTUll P<ar,~0x05); 
dalayd); 

outportb(CailT»a. POar, 0«07); 
da(av(1); 

outpartbtCOKTaoi. POIT, 0x03); 
dalayd): 

raadinj-iiportbda PUT) ( OxTt; 
ouiporTbtcniioi POtT, OxOO; 
dalayd); 

raadin 2'<nporlb{IN POUT) ( 0x7<; 
outportbCCONItn. Pwr, O>07>; 
dalayd); 

raad_data>raadin_Vtt ♦ raadin_2*2; 
il (raad_data l'~data[il) 



/• aand out data 



/* aand out lou addraaa 



/* aand out high addraaa 



/* urita addraaa (nto 2817 
/• urita data into 2817 



/* aand out low addraaa 



/* aand out high addraaa 



/• raad Ion i-bit data 
/• raad high l-bit data 



( 



fpr intrtatdarr.'Prograa arror.\n"); 
raturn 1; 



